home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / TCATT115.ZIP / ALIASES.INI next >
INI File  |  1997-01-04  |  17KB  |  456 lines
  1. [Aliases]
  2. n0=/op /mode # +ooo $$1 $2 $3
  3. n1=/dop /mode # -ooo $$1 $2 $3
  4. n2=/j /join #$$1
  5. n3=/p /part #
  6. n4=/n /names #$$1
  7. n5=/w /whois $$1
  8. n6=/k /kick # $$1
  9. n7=/q /query $$1
  10. n8=/hop /part # | /join #$$1
  11. n9=/send /dcc send $1 $2
  12. n10=/chat /dcc chat $1
  13. n11=/ping /ctcp $$1 ping
  14. n12=~~~~~~~~~~~~~POLLS~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  15. n13=/poll {
  16. n14=  /set %yes 0
  17. n15=  /set %no 0
  18. n16=  /set %totalvoters 0
  19. n17=  /set %question $$?="Enter the question:"  
  20. n18=  /enable #polls 
  21. n19=  /msg # The PoLLs ArE oPeN The question is ====> 
  22. n20=  /msg # [ $+ %question $+ ]
  23. n21=  /msg #  Type "!yes" for yes and "!no" for no 
  24. n22=  /msg # the polls will close in 2 mins....... 
  25. n23=  .timer 1 60 /say Only 60 sec Left To Vote %popver (!yes or !no)
  26. n24=  .timer 1 120 /polloff
  27. n25=}
  28. n26=/polloff {
  29. n27=  /disable #polls
  30. n28=  /set %yes %yes * 100
  31. n29=  /set %yes %yes / %totalvoters
  32. n30=  /set %no %no * 100
  33. n31=  /set %no %no / %totalvoters
  34. n32=  /set %totalvoters %totalvoters * 100
  35. n33=  /set %totalvoters %totalvoters / $nick(0,#)
  36. n34=  /msg # voting is now closed..the votes are being counted..
  37. n35=  /msg # %totalvoters $+ % of the users on # voted on =========>[ $+ %question $+ ]<=========
  38. n36=  /msg # of that %totalvoters $+ % =YeS's= %yes $+ % and  =No'S= %no $+ %
  39. n37=  if (%yes > %no) goto yes
  40. n38=  if (%yes < %no) goto no
  41. n39=  if (%yes = %no) goto equal
  42. n40=  :yes
  43. n41=  /msg # MaJoriTY VoTeD YeS!!!! 
  44. n42=  goto end
  45. n43=  :no
  46. n44=  /msg # MaJoriTY VoTeD No!!!! 
  47. n45=  goto end
  48. n46=  :equal
  49. n47=  /msg # THeRe'S a LocK UP!!!! 
  50. n48=  :end
  51. n49=  /unset %no 
  52. n50=  /unset %yes 
  53. n51=  /unset %notagain
  54. n52=  /unset %totalvoters
  55. n53=}
  56. n54=~~~~~~~~~SELECTMS~~~~~~~~~~~~~~~~~~~~~~~~~~
  57. n55=/select {
  58. n56=  set %select 1
  59. n57=  :selectstart
  60. n58=  if $channel(%select) = $null halt
  61. n59=  if $channel(%select) = <#channel> { inc %select | goto selectstart }
  62. n60=  else { msg $channel(%select) %selectmsg
  63. n61=    inc %select 1
  64. n62=    goto selectstart
  65. n63=  }
  66. n64=}
  67. n65=~~~~~~~~SHUT UP KICKER~~~~~~~~~~~~~~~~~~~~~~
  68. n66=/shut {
  69. n67=  /msg $$1 4Shut Up for at Least 4660 seconds or you'll be 4Kicked and Baned !! You've been 4WARNED !!!
  70. n68=  //me Says it's better for $$1 to 4SHUT UP for at least 4660 seconds, or He'll be 4Kick and Banned !!!  1,15-=1,14[4,1 ╖▀ú├⌐]{-Tδ]{╖ 1,14]1,15=-
  71. n69=  /timer 1 60  /auser 20 $$1 
  72. n70=  /timer 1 60 /ruser $$1 
  73. n71=}
  74. n72=~~~~~~~~RAINBOW 2.0~~~~~~~~~~~~~~~~~~~~~~~~
  75. n73=/co {
  76. n74=  set %rk *1
  77. n75=  %rk = $replace(%rk,a,1a)
  78. n76=  %rk = $replace(%rk,b,3b)
  79. n77=  %rk = $replace(%rk,c,4c)
  80. n78=  %rk = $replace(%rk,d,6d)
  81. n79=  %rk = $replace(%rk,e,12e)
  82. n80=  %rk = $replace(%rk,f,13f)
  83. n81=  %rk = $replace(%rk,g,14g)
  84. n82=  %rk = $replace(%rk,h,15h)
  85. n83=  %rk = $replace(%rk,i,1i)
  86. n84=  %rk = $replace(%rk,j,3j)
  87. n85=  %rk = $replace(%rk,k,4k)
  88. n86=  %rk = $replace(%rk,l,6l)
  89. n87=  %rk = $replace(%rk,m,12m)
  90. n88=  %rk = $replace(%rk,n,13n)
  91. n89=  %rk = $replace(%rk,o,14o)
  92. n90=  %rk = $replace(%rk,p,1p)
  93. n91=  %rk = $replace(%rk,q,3q)
  94. n92=  %rk = $replace(%rk,r,4r)
  95. n93=  %rk = $replace(%rk,s,6s)
  96. n94=  %rk = $replace(%rk,t,12t)
  97. n95=  %rk = $replace(%rk,u,13u)
  98. n96=  %rk = $replace(%rk,v,14v)
  99. n97=  %rk = $replace(%rk,w,15w)
  100. n98=  %rk = $replace(%rk,x,1x)
  101. n99=  %rk = $replace(%rk,y,3y)
  102. n100=  %rk = $replace(%rk,z,4z)
  103. n101=  say %rk
  104. n102=  unset %rk
  105. n103=}
  106. n104=~~~~~~~~~~~CrAzY TeXt~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  107. n105=/ht {
  108. n106=  set %rk *1
  109. n107=  %rk = $replace(%rk,a,σ)
  110. n108=  %rk = $replace(%rk,b,▀)
  111. n109=  %rk = $replace(%rk,c,⌐)
  112. n110=  %rk = $replace(%rk,d,╨)
  113. n111=  %rk = $replace(%rk,e,Ω)
  114. n112=  %rk = $replace(%rk,f,f)
  115. n113=  %rk = $replace(%rk,g,g)
  116. n114=  %rk = $replace(%rk,h,h)
  117. n115=  %rk = $replace(%rk,i,∩)
  118. n116=  %rk = $replace(%rk,j,j)
  119. n117=  %rk = $replace(%rk,k,K)
  120. n118=  %rk = $replace(%rk,l,ú)
  121. n119=  %rk = $replace(%rk,m,m)
  122. n120=  %rk = $replace(%rk,n,±)
  123. n121=  %rk = $replace(%rk,o,≡)
  124. n122=  %rk = $replace(%rk,p,■)
  125. n123=  %rk = $replace(%rk,q,q)
  126. n124=  %rk = $replace(%rk,r,«)
  127. n125=  %rk = $replace(%rk,s,º)
  128. n126=  %rk = $replace(%rk,t,t)
  129. n127=  %rk = $replace(%rk,u,ⁿ)
  130. n128=  %rk = $replace(%rk,v,v)
  131. n129=  %rk = $replace(%rk,w,W)
  132. n130=  %rk = $replace(%rk,x,╫)
  133. n131=  %rk = $replace(%rk,y,Ñ)
  134. n132=  %rk = $replace(%rk,z,z)
  135. n133=  say %rk
  136. n134=  unset %rk
  137. n135=}
  138. n136=~~~~~~~~~THE TIME~~~~~~~~~~~~~~~~~~~~~~
  139. n137=/time {
  140. n138=  set %realtime $time
  141. n139=  set %type AM
  142. n140=  set %hour $token(1,58,%realtime)
  143. n141=  if (%hour > 12) { /set %hour %hour - 12 | /set %type PM }
  144. n142=  set %min $token(2,58,%realtime)
  145. n143=  set %realtime %hour $+ : $+ %min %type
  146. n144=  if (%min = 00) { /echo 5 $active It Is Now %realtime %popver | /beep }
  147. n145=  if (%min = 30) { /echo 5 $active It Is Now %realtime %popver | /beep }
  148. n146=  unset %hour | /unset %min | /unset %type
  149. n147=  /me says it is %realtime
  150. n148=}  
  151. n149=~~~~~~~~~~~~~~~~~~~ASCII~~~~~~~~~~~~~~~~~~~~~~~
  152. n150=/talk {
  153. n151=  %talk = $$?="Enter Text To Convert to ASCII:"
  154. n152=  %talk = $replace(%talk, 1, ╣)
  155. n153=  %talk = $replace(%talk, 2, ▓)
  156. n154=  %talk = $replace(%talk, 3, │)
  157. n155=  %talk = $replace(%talk, 1/4, ╝)
  158. n156=  %talk = $replace(%talk, 1/2, ╜)
  159. n157=  %talk = $replace(%talk, 3/4, ╛)
  160. n158=  %talk = $replace(%talk, AE, ╞)
  161. n159=  %talk = $replace(%talk, A, ┼)
  162. n160=  %talk = $replace(%talk, B, ▀)
  163. n161=  %talk = $replace(%talk, C, ╟)
  164. n162=  %talk = $replace(%talk, D, ╨)
  165. n163=  %talk = $replace(%talk, E, ╩)
  166. n164=  %talk = $replace(%talk, I, ╬)
  167. n165=  %talk = $replace(%talk, L, ú)
  168. n166=  %talk = $replace(%talk, N, ╤)
  169. n167=  %talk = $replace(%talk, O, ╘)
  170. n168=  %talk = $replace(%talk, R, «)
  171. n169=  %talk = $replace(%talk, S, º)
  172. n170=  %talk = $replace(%talk, U, █)
  173. n171=  %talk = $replace(%talk, Y, Ñ)
  174. n172=  { 
  175. n173=    %talk1 = %talk
  176. n174=    unset %talk
  177. n175=    %talk = 
  178. n176=    %number = 1 
  179. n177=    %color = 2
  180. n178=    :continue
  181. n179=    if $mid(%number,1, %talk1) != $null {
  182. n180=      %talk = %talk $+   $+ %color $+ $mid(%number, 1,%talk1) $+  
  183. n181=      inc %number
  184. n182=      If (%color == 15) %color = 1
  185. n183=      inc %color
  186. n184=      goto continue
  187. n185=    }
  188. n186=    say %talk
  189. n187=  }
  190. n188=} 
  191. n189=~~~~~~~~~~~~~~~Scanner~~~~~~~~~~~~~~~~~~~
  192. n190=ScaNniNg enable #CloneScan | who #
  193. n191=ScaNaGaiN enable #Status | who #
  194. n192=AdvScan enable #adv | who #
  195. n193=IRCopScan enable #opscan | who #
  196. n194=~~~~~~~~~~~~~~AWAY MESSAGES~~~~~~~~~~~~
  197. n195=/gone {
  198. n196=  ame is away - $? - Messages are logged
  199. n197=  away since 3,4 $+ $atime $+ - -  $+ $$!
  200. n198=  %msg = 0
  201. n199=  write -c $mircdir $+ away.log
  202. n200=  .enable #AwayMsgLog
  203. n201=}
  204. n202=back {
  205. n203=  ame is back -- I know.. who cares.
  206. n204=  away
  207. n205=  .disable #AwayMsgLog
  208. n206=  if (%msg == 0) { set %msg no }
  209. n207=  aecho You have %msg message(s) waiting
  210. n208=  unset %msg
  211. n209=  ~~~~~~~~~NET SPLIT FINDER~~~~~~~~~~~~~~~~~~~~~~~~
  212. n210=}
  213. n211=/mservers {
  214. n212=  .remove servers.txt
  215. n213=  .enable #master
  216. n214=  echo 4 -s [dot] Adding master server list...
  217. n215=  links
  218. n216=}
  219. n217=/masteroff /.disable #master | /echo 4 -s [dot] Servers added.
  220. n218=/detect {
  221. n219=  echo 4 -s [dot] Detecting splits...
  222. n220=  .enable #split
  223. n221=  links
  224. n222=}
  225. n223=/detect2 {
  226. n224=  set %count 0
  227. n225=  :sloop
  228. n226=  inc %count 1
  229. n227=  set %detect $read -l $+ %count servers.txt
  230. n228=  if %detect == $null goto end
  231. n229=  set %detect2 $read -s $+ %detect server.txt
  232. n230=  if %detect2 == $null echo 4 -s [dot] %detect
  233. n231=  goto sloop
  234. n232=  :end
  235. n233=  echo 4 -s [dot] Scanning complete
  236. n234=  .remove server.txt
  237. n235=  .disable #split
  238. n236=}
  239. n237=~~~~~~~~~~~~DARE~~~~~~~~~~~~~~~~~~~~~~~~~
  240. n238=/idareya {
  241. n239=  ; Count players , make hands 
  242. n240=  %i = 0  | %numberofplayers = $snick(0,%playchan) | set %players "" | set %dareplayers ""
  243. n241=  :countplayers | inc %i 1 | if (($snick(%i,%playchan) = W) || ($snick(%i,%playchan) = X)) { dec %numberofplayers 1 |  if (%i <= %numberofplayers) { goto countplayers } | else {  goto takeme } } | else { %players = %players $snick(%i,%playchan) | if (%i <= %numberofplayers) { goto countplayers } }
  244. n242=  :takeme | if ($me isin %players) { set %players $remove(%players,$me) | dec %numberofplayers 1 } 
  245. n243=  %i = 1 | :recalc |  %dareplayers = %dareplayers $token(%i,32,%players) $+ , $+ $chr(160) |  inc %i 1 | if (%i <= %numberofplayers)  { goto recalc } | %len = $len(%dareplayers) | %len = %len - 2 | %dareplayers = $left(%len,%dareplayers) | unset %len | unset %i
  246. n244=  describe %playchan %dareplayers  I dare ya to type ~dare !!!! "  | set %dareplayers $chr(160)
  247. n245=}
  248. n246=~~~~~~~~~~~RANDOM KICKER~~~~~~~~~~~~~~~~~
  249. n247=randkick {
  250. n248=  :start
  251. n249=  %tot = $nick(0,#)
  252. n250=  %rand = $rand(1,%tot)
  253. n251=  if $nick(%rand,#) == $me goto start
  254. n252=  inc %victim
  255. n253=  kick # $nick(%rand,#) >RaNDoM KicK VicTiM NuMBeR %victim $+ ><
  256. n254=  :end
  257. n255=  unset %tot | /unset %rand"
  258. n256=}
  259. n257=~~~~~~~~~~CLONE JOIN~~~~~~~~~~~~~~~~~~~~~~
  260. n258=/clonejoin {
  261. n259=  if $nick != $me {
  262. n260=    set %clonecount 1
  263. n261=    set %count 0 | /unset %clonejoin
  264. n262=    :start
  265. n263=    inc %count 1
  266. n264=    if $nick(%count,$chan) == $null goto end
  267. n265=    if $nick == $nick(%count,$chan) goto start
  268. n266=    if $address($nick(%count,$chan),3) == $address($nick,3) {
  269. n267=      inc %clonecount
  270. n268=      inc %counter2
  271. n269=    set %clonejoin %clonejoin $nick(%count,$chan) [Clone %counter2 $+ ]= }
  272. n270=    goto start
  273. n271=    :end
  274. n272=    if %clonejoin != $null { /set %clonejoin %clonejoin $nick | /echo 4 $chan τ|_≡±Ω σ|_Ω«T for => $+ %clonejoin [ $+ %clonecount $+ ] Total Connections from [ $+ $address($nick,3) $+ ü] detected on  $+ $chan $+  } 
  275. n273=    unset %count | /unset %clonejoin | /unset %counter2
  276. n274=  }
  277. n275=}
  278. n276=~~~~~~~~ABC VOTING~~~~~~~~~~~~~~~~~~~~~~~
  279. n277=/abcvote {
  280. n278=  /enable #abcpoll
  281. n279=  set %a 0
  282. n280=  set %b 0
  283. n281=  set %c 0
  284. n282=  set %abcquestion $?="Enter Question"
  285. n283=  set %avalue $?="Enter A Value"
  286. n284=  set %bvalue $?="Enter B Value"
  287. n285=  set %cvalue $?="Enter C Value"
  288. n286=  msg # "ABC" voting is now in progress......
  289. n287=  msg # The question is [ $+ %abcquestion $+ ].....
  290. n288=  msg # Vote [A] $+ %avalue [B] $+ %bvalue [C] $+ %cvalue
  291. n289=  msg # Type !vote <a,b,c> to vote[closeing in 2 min] 
  292. n290=  .timer 1 60 /msg # Only 60 sec Left To Vote (!vote <a,b,c>)
  293. n291=  .timer 1 120 /abclose
  294. n292=}
  295. n293=/abclose {
  296. n294=  disable #abcpoll
  297. n295=  set %a %a * 100
  298. n296=  set %a %a / %totalabc
  299. n297=  set %b %b * 100
  300. n298=  set %b %b / %totalabc
  301. n299=  set %c %c * 100
  302. n300=  set %c %c / %totalabc
  303. n301=  set %totalabc %totalabc * 100
  304. n302=  set %totalabc %totalabc / $nick(0,#)
  305. n303=  msg # voting is now closed..the votes are being counted..
  306. n304=  msg # %totalabc $+ % of the users on # voted on ===========>[ $+ %abcquestion $+ ]<===========
  307. n305=  msg # [A] $+ %avalue $+ = %a $+ % [B] $+ %bvalue $+ = %b $+ % [C] $+ %cvalue $+ = %c $+ %
  308. n306=  if ((%a > %b) && (%a > %c)) goto awin
  309. n307=  if ((%a > %b) && (%a = %c)) goto aandc
  310. n308=  if ((%a > %c) && (%a = %b)) goto aandb
  311. n309=  if ((%a < %b) && (%c < %b)) goto bwin
  312. n310=  if ((%a < %b) && (%c = %b)) goto bandc
  313. n311=  if ((%a < %c) && (%c > %b)) goto cwin
  314. n312=  if ((%a = %b) && (%a = %c)) goto equal
  315. n313=  :awin
  316. n314=  msg # The majority voted for [A] $+ %avalue !!!! 
  317. n315=  goto end
  318. n316=  :bwin
  319. n317=  msg # The majority voted for [B] $+ %bvalue !!!! 
  320. n318=  goto end
  321. n319=  :cwin
  322. n320=  msg # The majority voted for [C] $+ %cvalue !!!! 
  323. n321=  goto end
  324. n322=  :equal
  325. n323=  msg # It equaled out!!!
  326. n324=  goto end
  327. n325=  :aandb
  328. n326=  msg # [A] $+ %avalue and [B] $+ %bvalue Were Tied!! 
  329. n327=  goto end
  330. n328=  :aandc
  331. n329=  msg # [A] $+ %avalue and [C] $+ %cvalue Were Tied!! 
  332. n330=  goto end
  333. n331=  :bandc
  334. n332=  msg # [B] $+ %bvalue and [C] $+ %cvalue Were Tied!! 
  335. n333=  :end
  336. n334=  unset %a | unset %b | unset %c | unset %avalue | unset %bvalue | unset %cvalue | unset %abcquestion | unset %totalabc | unset %notagain
  337. n335=}
  338. n336=~~~~~~~~~~~~~~BAZ_AWAY~~~~~~~~~~~~~~~~~~~~~
  339. n337=under return $chr(31) *1 $chr(31)
  340. n338=bold return $chr(2) *1 $chr(2)
  341. n339=colr if ($2* != $null) { return $chr(3) $+ $1 $+ *2 $+ $chr(3) }
  342. n340=idler { 
  343. n341=  .timer22 0 1 if ($idle == 300) { idleaway  } 
  344. n342=  else { halt } 
  345. n343=}
  346. n344=idleaway {
  347. n345=  ame Set Away at $under($time) , $under($date) $bold($colr(12,Auto Away On Idle.))  | .timer22 off | .timer14 0 1000 counting | %ppage = ╗Pager is ?┐½ | %away = Auto Away On Idle | %pager = OFF
  348. n346=  .enable #away | .timer23 0 1 titleaway | .timer69 0 1 inc %counter 1 
  349. n347=}
  350. n348=counting ame is away for $under($duration(%counter))  %ppage
  351. n349=titleaway titlebar *«* $+ Away For $duration(%counter) $+ *«*
  352. n350=titleSyCh %BigQ = $$?="Reset The On Line Timer? (Y or N)" | if (%BigQ == Y ) { unset %titleSecs | echo 4 -s ** ReSeting On Line Timer ** } | elseif (%BigQ == N) { echo 4 -s ** Resuming On Line Timer ** } | .timer264 0 1 inc %titleSecs | .timer265 0 1 titleperf | .timer99 0 3600 ding
  353. n351=titleperf {
  354. n352=  if (%away == $null) { titlebar *«*I Have Been On Line For $duration(%titlesecs) $+ *«* }
  355. n353=  else { halt }
  356. n354=}
  357. n355=ding { ame I Have Been On Line For $duration(%titleSecs) }
  358. n356=Perform:
  359. n357=idler | titleSyCh | unset %away
  360. n358=~~~~~~~~~~~~`IDLE KICKER~~~~~~~~~~~~~~~~~~~~~~~~
  361. n359=/check {
  362. n360=  :top
  363. n361=  inc %i
  364. n362=  if ($nick(%i,$$1) == $null) { unset %i %idle %t | halt }
  365. n363=  else {
  366. n364=    set %t $readini idle.ini idlekick $nick(%i,$1)
  367. n365=    if (%t == $null) { goto top }
  368. n366=    else {
  369. n367=      %idle = $ctime - %t
  370. n368=      if (%idle > 1800) && ($nick(%i,$$1) !isop $$1) && ($nick(%i,$$1) != $me) && ($nick(%i,$$1) != W) && ($nick(%i,$$1) != X) {
  371. n369=        kick $1 $nick(%i,$1) You've been sitting here for a half hour, 4Wake up!!
  372. n370=        remini idle.ini idlekick $nick(%i,$1)
  373. n371=        goto top 
  374. n372=      }
  375. n373=      else { goto top }
  376. n374=    }
  377. n375=  }
  378. n376=}
  379. n377=~~~~~~~~~COOL BLACK RAINBOW 1.0 COLORS~~~~~~~~~~~~
  380. n378=/fr {
  381. n379=  set %rk *1
  382. n380=  %rk = $replace(%rk,a,4a)
  383. n381=  %rk = $replace(%rk,b,4b)
  384. n382=  %rk = $replace(%rk,c,4c)
  385. n383=  %rk = $replace(%rk,d,4d)
  386. n384=  %rk = $replace(%rk,e,4e)
  387. n385=  %rk = $replace(%rk,f,4f)
  388. n386=  %rk = $replace(%rk,g,4g)
  389. n387=  %rk = $replace(%rk,h,4h)
  390. n388=  %rk = $replace(%rk,i,4i)
  391. n389=  %rk = $replace(%rk,j,4j)
  392. n390=  %rk = $replace(%rk,k,4k)
  393. n391=  %rk = $replace(%rk,l,4l)
  394. n392=  %rk = $replace(%rk,m,4m)
  395. n393=  %rk = $replace(%rk,n,4n)
  396. n394=  %rk = $replace(%rk,o,4o)
  397. n395=  %rk = $replace(%rk,p,4p)
  398. n396=  %rk = $replace(%rk,q,4q)
  399. n397=  %rk = $replace(%rk,r,4r)
  400. n398=  %rk = $replace(%rk,s,4s)
  401. n399=  %rk = $replace(%rk,t,4t)
  402. n400=  %rk = $replace(%rk,u,4u)
  403. n401=  %rk = $replace(%rk,v,4v)
  404. n402=  %rk = $replace(%rk,w,4w)
  405. n403=  %rk = $replace(%rk,x,4x)
  406. n404=  %rk = $replace(%rk,y,4y)
  407. n405=  %rk = $replace(%rk,z,4z)
  408. n406=  say %rk
  409. n407=  unset %rk
  410. n408=}
  411. n409=~~~~~~~~~~~Cool Poll 1.7~~~~thanks msnbc~~~~~~~`
  412. n410=/poll2 {
  413. n411=  /set %yes 0
  414. n412=  /set %no 0
  415. n413=  /set %totalvoters 0
  416. n414=  /set %question $$?="Enter the question:"  
  417. n415=  /enable #polls 
  418. n416=  /me 9,1The Polls Are Open The question is ====> 
  419. n417=  /me 9,1[ $+ %question $+ ]
  420. n418=  /me 9,1Type "!Yes" for Yes and "!No" for No
  421. n419=  /me 9,1The polls will close in 2 mins....... ( %ver )
  422. n420=  .timer 1 15 /me 9,1 There Have Been 15 sec   
  423. n421=  .timer 1 90 /me 9,1 30 Sec Left   
  424. n422=  .timer 1 110 /me 9,1 10 Sec Left   
  425. n423=  .timer 1 60 /me 9,1 Only 60 sec Left To Vote %popver (!yes or !no)   
  426. n424=  .timer 1 120 /polloff
  427. n425=}
  428. n426=/polloff {
  429. n427=  /disable #polls
  430. n428=  /set %yes %yes * 100
  431. n429=  /set %yes %yes / %totalvoters
  432. n430=  /set %no %no * 100
  433. n431=  /set %no %no / %totalvoters
  434. n432=  /set %totalvoters %totalvoters * 100
  435. n433=  /set %totalvoters %totalvoters / $nick(0,#)
  436. n434=  /me 9,1 voting is now closed..the votes are being counted..
  437. n435=  /me 9,1 %totalvoters $+ % of the users on # voted on =====>[ $+ %question $+ ]<=====
  438. n436=  /me 9,1 of that %totalvoters $+ % =YeS's= %yes $+ % and  =No'S= %no $+ % ( %ver )
  439. n437=  if (%yes > %no) goto yes
  440. n438=  if (%yes < %no) goto no
  441. n439=  if (%yes = %no) goto equal
  442. n440=  :yes
  443. n441=  /me 9,1MaJoriTY VoTeD YeS!!!! 
  444. n442=  goto end
  445. n443=  :no
  446. n444=  /me 9,1MaJoriTY VoTeD No!!!! 
  447. n445=  goto end
  448. n446=  :equal
  449. n447=  /me 9,1 # THeRe'S a LocK UP!!!! 
  450. n448=  :end
  451. n449=  /unset %no 
  452. n450=  /unset %yes 
  453. n451=  /unset %notagain
  454. n452=  /unset %totalvoters
  455. n453=}
  456.